﻿Public Class Carro
    'clase carro
    'atributos: color, modelo, marca (privADOS)
    'metodos: acelerar, frenar (PUBLICOS)
    Private _color As String
    Private _modelo As String
    Private _marca As String
    Private _anho As Integer
    Private _velocidad As Integer
    Public Property color() As String
        Get
            Return Me._color
        End Get
        Set(ByVal Valor As String)
            Me._color = Valor
        End Set
    End Property


    Public Sub arrancarCarro()
        Me._velocidad = 0
    End Sub

    Public Function acelerar() As Integer
        Me._velocidad = Me._velocidad + 1
        Return Me._velocidad
    End Function

End Class
